BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/S-Sh/SCB 4.0.cpt/Script Cat Burglar 4.0/stack.txt

Text File | 1988-03-21 | 4KB | 134 lines

-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 5
-- first background id: 3586
-- card count: 16
-- first card id: 3953
-- list block id: 8616
-- print block id: 3550
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 121664 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xFF00FF00FF00FF00
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x5555555555555555
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  set lockScreen to true
  hide message box
  set userLevel to 5
end openStack

on WhichStack
  Global endSearch, pattern, stackName
  Put "                            Which stack should be searched?"
  get FileName(STAK)     -- stack to search
  if it is not empty then
    put it into stackName
    hide Message Box
  else
    abortSearch
    If endSearch is "Abort" then
      exit WhichStack
    end if
  end if
end WhichStack

on completeSearch
  global holder
  put empty into holder
  set loc of message box to 17,157
  Put "                                          Search Completed"
  Beep
  Wait 1 seconds
  hide Message Box
  Set loc of Message box to 20,290
  hide menuBar
end completeSearch

on abortSearch
  global endSearch, holded
  put empty into holder
  set loc of message box to 17,157
  Put "                                           Search Cancelled"
  Beep
  Wait 1 seconds
  hide Message Box
  Set loc of Message box to 20,290
  put "Abort" into endSearch
  set lockMessages to false
end abortSearch

on doMenu WhichItem -- goodman 597
  if WhichItem is not "Quit HyperCard" then
    Pass domenu
  else
    Answer "Compact this stack before quitting?" with "Cancel" or "No" or "Yes"
    If it is "Yes" then
      set loc of Message Box to 17,110
      Put "             Compacting this stack before quitting"
      show message box
      doMenu "Compact Stack"
      pass doMenu
    else
      if it is "No" then
        pass domenu
      end if
    end if
  end if
end doMenu